Option Explicit

Sub GpsIntrepreter()

	Do
		Call Sleep(1.0)
	Loop

End Sub